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BEGIN 00001000 
COMMENTS * TITLE! B5500/B57C60 MARK XIV SYSTEM RELEASE * 00001010 a 
* FILE 10% SYMBUL/MESSGEN JAPE Jibs SYMBOLe@/FILEQOQO  o*  QooglolL oo 
* THIS MATERIAL IS PROPRIETARY TO BURROUGHS CORPORATION « 00001012 
* AND IS NOT TO BE REPRODUCED» USED» OR DISCLOSED * 00001013 :1@ 
* EXCEPT IN ACCORDANCE WITH PROGRAM LICENSE OR UPON Oo «*  .oocvo1ota 3 
* WRITTEN AUTHORIZATION LF THE PATENT CIVISIUN OF * 0¢0G1015 4 
* BURROUGHS CORPORATION? LETRUI1» MICHIGAN 48232 * 00001016 |@ 
a ae se an Rae dah acter eta en coh Mn cus mien Sela Sata Telia ase IR RI 9010 0 0 5h ky ee ee ee 8 
* COPYRIGHT (C) 1972 BURROUGHS CORPORATION . 00001018 
* AA386657 *3 00001019 
ss BOOLEAN? COMBS ice cic veccesexeelne i ere oy oe ety oe: Uoee tel ce ety eee eee 00001400. 
FILE P 1021793 00001200 
BEGIN 00001300 
uu SAVE FILE MESS DISK RANDOML12307"MESSAGE”™"UTHEDAY” (1914 9909SAVE 123 00001400 
ARRAY CARDCO!9]sLINECO!17)3 00001500 
FILE CARDS (1,10)3 00001600 
io ANTEGER BURPRECALRECE oo opted PU ok vee te cs Soy aren tee elect fh onan 00001700 
BOULEAN EOFS 00001800 
LABEL ANYWAYS 00001900 
LABEL EFLsOVERSOONES = = 00902000 2. 
STREAM PROCEDURE PUTCA?B)3. 00002100 
BEGIN SIssAsD1 22830 t8b1+1423140C0S8=8 CHR) END; 00002200 
ADE k LINEC*#] WITH Bon ictadte a nD esd cui koa cem one Rue mene ws esa coiaas ls en OUOS BOC ier tf ti hee St 
wee MESSAGE OF THE DAY ¥*« "oy o0C0z400 
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Oc¢T00010501020000C03...... . sy S.Mrennchedche. Wnachaiees Behe eae oe tilt ut Las OURO Oa x: 
WRITE CMESSCLRECS=4)¢1@*LINEL*I)3” 00002700 
FILL LINELC*) WITH 00002800 
UB tesla, sae LS eee de Dd fin Pes ee etapa ateecten sana eepieptettiekin greet Piatto Rhett ache ace dts SOS IY cry, «oon. eerie. 
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FOR BLKt=0 STEP 1 UNTIL 5 OO 00003300 
BEGIN 00003400 
FOR REC tsBLKXS+4eREALCBLK=0) STEP =1 UNTIL BLKx5 OO gp gog3socg 
BEGIN 00003600 
IF NOT EQF TREN 00003700 
oe _ BEGIN, ODER O0O9O03800 
READC(CCARDS s10,CARDI #JILEFLJ)~ 00003900 
IF COM THEN 00004000 
WRITECPs10sCARDE*J))5 whith h eee Aaah OO US AG ee eee te Pc et 39 
END} “00004200 40 
IF FALSE THEN 00004300 |@ 
FLs BEGIN Fee Se ae ee get ee 00004400 = onese ae a2 
EOF t=sTRUES 00004500 4 
READCWESSCLRECI] +1 6@oLINEL #103 00004600 a® 
A INEEL7ISSLINECI7JG20278459305 00004700 9 
WRITECMESSCLREC)»16-LINEL*))3 00004800 16 
IF pee eon 5) = BLK AND BLK NE® O THEN 00004900 | 
; eee: 1c, | ae ne de eee, : 00005000, : 
Ser 00005100 4s 
GQ ANYWAY3 00005200 so @ 
te eke Renna he ite Ih. Fae ory Scr op ee ee es fe OOOO ane ect se ee eS = 
ENDS 00005400 5 
IF NOT EOF THEN PUTCCARDsLINED 00005500 sd @ 
_ ELS E FILL LINECe) WITH 00005600 54 
", 00005700 : 55 
0.0 0%0s0» 0201010204040 0+0s09 0» 00005800 so @ 
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WRITECMESSCLREC? shEC]>16»LINELC*I)),» 
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TF €0F OR BLKES THEN 
BEGIN 
READ CMESSEBLKXS I-18 -LINECHIIS 


END; 
END; ‘ 
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hen As READCXs<24A6>eF OR 12=0 STEFF 1 UNTIL 23 CO LUIJICEOF Us oT 0008000. eee ra alee: eee - 
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